home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pastutor.EXE / tutor02a.pas < prev    next >
Pascal/Delphi Source File  |  1998-04-02  |  1KB  |  43 lines

  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision 2.0 Demo                        }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program Tutor02a;
  9.  
  10. uses App, Objects, Menus, Drivers, Views, TutConst;
  11.  
  12. type
  13.   TTutorApp = object(TApplication)
  14.     procedure InitStatusLine; virtual;
  15.   end;
  16.  
  17. procedure TTutorApp.InitStatusLine;
  18. var
  19.   R: TRect;
  20. begin
  21.   GetExtent(R);
  22.   R.A.Y := R.B.Y - 1;
  23.   New(StatusLine, Init(R,
  24.     NewStatusDef(0, $EFFF,
  25.       NewStatusKey('~F3~ Open', kbF3, cmOpen,
  26.       NewStatusKey('~F4~ New', kbF4, cmNew,
  27.       NewStatusKey('~Alt+F3~ Close', kbAltF3, cmClose,
  28.       StdStatusKeys(nil)))),
  29.     NewStatusDef($F000, $FFFF,
  30.       NewStatusKey('~F6~ Next', kbF6, cmOrderNext,
  31.       NewStatusKey('~Shift+F6~ Prev', kbShiftF6, cmOrderPrev,
  32.       StdStatusKeys(nil))), nil))));
  33. end;
  34.  
  35. var
  36.   TutorApp: TTutorApp;
  37.  
  38. begin
  39.   TutorApp.Init;
  40.   TutorApp.Run;
  41.   TutorApp.Done;
  42. end.
  43.